PECs self-rating

1 PEC summary

plot_competency <- function(data, category) {
  data |>
    count(factor, description, rating) |>
    na.omit() |>
    group_by(description) |>
    mutate(percent = n / sum(n) * 100) |>
    ungroup() |>
    filter(factor == category) |>
    ggplot(aes(percent, description, fill = factor(rating))) +
    geom_col(size = 1, width = 0.8) +
    geom_text(
      aes(label = round(percent, 0), x = percent, y = description),
      position = position_stack(vjust = 0.5),
      color = "white") +
    scale_fill_manual(values = c("#2f3e46", "#3a5a40", "#588157", "#a3b18a", "#dad7cd"),
                      labels = c("Always", "Usually", "Sometimes", "Rarely", "Never")) +
    theme_minimal() +
    theme(plot.margin = margin(rep(20, 4)),
          plot.title = element_text(hjust = 0.5, size = 14, color = "gray20",
                                    face = "bold", margin = margin(b = 20)),
          plot.title.position = "plot",
          panel.grid = element_blank(),
          axis.title.y = element_blank(),
          axis.title.x = element_text(margin = margin(t=10), size = 14),
          axis.text = element_text(size = 12, color = "grey20"),
          strip.text = element_text(size = 12, face = "bold"),
          strip.clip = "off",
          legend.position = "right",
          legend.text = element_text(size = 12)) +
    labs(fill = element_blank(),
         title = category,
         x = "Proportion")
}

# summary of each competency
p_competency_summary <- 
  competency_long_fmt_dta |> 
  count(factor, rating) |> 
  na.omit() |> 
  group_by(factor) |>
  mutate(
    percent = n / sum(n) * 100
  ) |> 
  ungroup() |>
  mutate(rating = factor(rating, levels = c(1, 2, 3, 4, 5)),
         rating = fct_rev(rating)) |>
  ggplot(aes(percent, factor, fill = factor(rating))) +
  geom_col(size = 1, width = 0.8) +
  geom_text(
    aes(label = round(percent, 0), x = percent, y = factor),
    position = position_stack(vjust = 0.5),
    color = "white") +
  # scale_fill_manual(values = c("#500207", "#9f040e", "#e30613", "#fa4c58", "#fc9ca2"),
  #                   labels = c("Always", "Usually", "Sometimes", "Rarely", "Never")) +
  scale_fill_manual(values = c("#2f3e46", "#3a5a40", "#588157", "#a3b18a", "#dad7cd"),
                    labels = c("Always", "Usually", "Sometimes", "Rarely", "Never")) +
  theme_minimal() +
  theme(plot.margin = margin(rep(20, 4)),
        plot.title = element_text(hjust = 0.5, size = 14, color = "gray20",
                                  face = "bold", margin = margin(b = 20)),
        plot.title.position = "plot",
        panel.grid = element_blank(),
        axis.title.y = element_blank(),
        axis.title.x = element_text(margin = margin(t=10), size = 14),
        axis.text = element_text(size = 12, color = "grey20"),
        strip.text = element_text(size = 12, face = "bold"),
        strip.clip = "off",
        legend.position = "right",
        legend.text = element_text(size = 12)) +
  labs(fill = element_blank(),
       x = "Proportion")

## save plot
ggsave("plot/competency_summary.jpeg", width = 10, height = 6, dpi = 300)

## display plot
knitr::include_graphics("plot/competency_summary.jpeg")

1.1 Opportunity seeking

## opportunity seeking
p_opportunity_seeking <- plot_competency(competency_dta, "Opportunity seeking")

## save plot
ggsave("plot/opportunity_seeking.jpeg", width = 12, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/opportunity_seeking.jpeg")

Interpretation

• The individual exhibits a moderate level of Opportunity Seeking.

• They are more inclined towards familiar activities and may require encouragement to step outside their comfort zone.

• They are receptive to new challenges and opportunities, but may need additional motivation or support to pursue them actively.

• They tend to identify and address tasks, but may not always take the initiative to act independently.

1.2 Persistence

## persistence
p_persistence <- plot_competency(competency_dta, "Persistence")

## save plot
ggsave("plot/persistence.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/persistence.jpeg")

Interpretation

• The individual exhibits a moderate level of Persistence.

• They are more likely to disengage from challenging situations rather than persist through them.

• They are receptive to exploring different approaches to overcome obstacles, but may need additional motivation or support to maintain effort.

• They tend to persist in influencing others, but may need to develop more effective strategies for persuasion and negotiation.

1.3 Commitment to work contract

## commitment to work contract
p_commitment <- plot_competency(competency_dta, "Commitment")

## save plot
ggsave("plot/commitment.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/commitment.jpeg")

Interpretation

• The individual exhibits a moderate level of Commitment.

• They prioritize their personal life over work deadlines.

• They are receptive to meeting deadlines and honoring commitments, but may need additional motivation or support to maintain consistency.

• They are willing to assist others to meet deadlines, but may need to establish clear boundaries to avoid overcommitment.

1.4 Demand for efficiency

## demand for efficiency
p_efficiency <- plot_competency(competency_dta, "Demand for efficiency")

## save plot
ggsave("plot/demand_for_efficiency.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/demand_for_efficiency.jpeg")

Interpretation

• The individual exhibits a moderate level of Demand for Efficiency.

• They value high-quality work and are bothered by inefficiency.

• They are receptive to improving their own efficiency and finding better ways of doing things.

• They may be more likely to identify areas for improvement and suggest alternative approaches.

1.5 Risk taking

## risk taking
p_risk_taking <- plot_competency(competency_dta, "Risk taking")

## save plot
ggsave("plot/risk_taking.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/risk_taking.jpeg")

Interpretation

• The individual exhibits a moderate level of Risk Taking.

• They tend to avoid uncertainty and prefer situations with a high degree of control.

• They are receptive to taking risks, but may need additional motivation or support to step outside their comfort zone.

• They may benefit from strategies for managing uncertainty and developing a tolerance for ambiguity.

1.6 Goal setting

## goal setting
p_goal_setting <- plot_competency(competency_dta, "Goal setting")

## save plot
ggsave("plot/goal_setting.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/goal_setting.jpeg")

Interpretation

• The individual exhibits a moderate level of Goal Setting.

• They may benefit from developing a more structured approach to goal setting and planning.

• They are receptive to considering future possibilities and setting goals, but may need additional motivation or support to maintain focus and commitment.

• They may need to develop strategies for breaking down long-term goals into smaller, more manageable steps.

1.7 Information seeking

## information seeking
p_info_seeking <- plot_competency(competency_dta, "Information seeking")

## save plot
ggsave("plot/information_seeking.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/information_seeking.jpeg")

Interpretation

1.8 Systematic planning and monitoring

## systematic planning and monitoring
p_systematic_planning <- plot_competency(competency_dta, "Systematic planning")

## save plot
ggsave("plot/systematic_planning_and_monitoring.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/systematic_planning_and_monitoring.jpeg")

Interpretation

1.9 Persuasion and networking

## persuasion and networking
p_persuasion <- plot_competency(competency_dta, "Persuasion")

## save plot
ggsave("plot/persuasion_and_networking.jpeg", width = 10, height = 4, dpi = 300)

## display plot
knitr::include_graphics("plot/persuasion_and_networking.jpeg")

Interpretation

1.10 Self confidence

## self confidence
p_self_confidence <- plot_competency(competency_dta, "Self-confidence")

# save plot
ggsave("plot/self_confidence.jpeg", width = 10, height = 4, dpi = 300)

# display plot
knitr::include_graphics("plot/self_confidence.jpeg")

Interpretation